home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / fract / MiniMand.lha / MiniMand / Julia.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-04-12  |  476 b   |  21 lines
  1. /* JuliaMorph. Demo ARexx script for MiniMand 1.0 */
  2.  
  3. i.1 = -.886
  4. r.1 = -.113
  5. i.2 = .582
  6. r.2 = .262
  7. i.3 = -1.303
  8. r.3 = .082
  9.  
  10. DO a = 1 TO 3
  11.     b = (a // 3) + 1
  12.     idif = i.b - i.a
  13.     rdif = r.b - r.a
  14.     DO c = 0 TO 19
  15.         name = 'ram:Hubba.'1000 + (a - 1) * 20 + c
  16.         jimag = i.a + idif * c / 20
  17.         jreal = r.a + rdif * c / 20
  18.         ADDRESS COMMAND 'MiniMand JULIA JIMAG 'jimag' JREAL 'jreal' SCRY 31 SCRX 31 ITER 32 PLANES 4 SAVE 'name' BATCH'
  19.     END
  20. END
  21.